home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / pcmag.arc / KEEPER.BAS < prev    next >
BASIC Source File  |  1988-01-10  |  9KB  |  136 lines
  1.   10  SUM#=0:PRINT"Checking Data..."
  2.   20  FOR I=1 TO 1108:READ BYTE.%:SUM#=SUM#+BYTE.%:NEXT I
  3.   30  IF SUM# <> 86203! THEN PRINT"Error in Data Statements":GOTO 180
  4.   40  RESTORE:FOR I=1 TO 10:KEY I,"":NEXT I:CLS
  5.   50  LOCATE 10,10:PRINT"Type the trigger key for the screen window."
  6.   60  GOSUB 190
  7.   70  KEYS(1) = CODE1:KEYS(2) = CODE2:CLS
  8.   80  OPEN "KEEPER.COM"     AS # 1  LEN = 1        'Open Keeper.Com
  9.   90  LOCATE 5,30:PRINT"Creating Keeper.Com    "
  10.  100  FIELD #1,1 AS BYTE.$:FOR N = 1 TO 1108
  11.  110  READ BYTE.%:IF BYTE.% <> -1 THEN GOTO 130
  12.  120  FOR JJJ=1 TO 2040:LSET BYTE.$=CHR$(0):PUT #1:NEXT JJJ:GOTO 160
  13.  130  IF BYTE.% <> -2 THEN GOTO 150
  14.  140  LSET BYTE.$=CHR$(CODE1):PUT #1:LSET BYTE.$=CHR$(CODE2):PUT #1:GOTO 160
  15.  150  LSET BYTE.$ = CHR$(BYTE.%):PUT #1
  16.  160  NEXT N:CLOSE #1  
  17.  170  LOCATE 5,30:PRINT "Keeper.Com Created.        "
  18.  180  END
  19.  190  DEF SEG = &H40
  20.  200  FKEY$=INKEY$:IF FKEY$="" GOTO 200
  21.  210  LOCATE 10,15:PRINT SPC(50):LOCATE 11,15:PRINT SPC(50)
  22.  220  TAIL=PEEK(26):TAIL=TAIL-2:IF TAIL < 30 THEN TAIL = 60 
  23.  230  CODE1=PEEK(TAIL):CODE2=PEEK(TAIL+1)
  24.  240  RETURN
  25.  250  DATA  233,  226,   11,   40,   67,   41,   49,   57,   56,   53
  26.  260  DATA   32,   83,   46,   72,   79,   76,   90,   78,   69,   82
  27.  270  DATA   -1,  150,    3,  112,  240,    7,    0,    0,    0,    0
  28.  280  DATA    0,    0,    0,    9,    0,    0,    0,    0,    0,    0
  29.  290  DATA    0,    0,    0,    0,    0,    1,    1,    0,    1,    0
  30.  300  DATA    0,    0,    0,    0,   80,   83,   81,   82,   87,   86
  31.  310  DATA   30,    6,  156,   46,  255,   30,   32,    9,  187,   64
  32.  320  DATA    0,  142,  219,  139,   30,   28,    0,   59,   30,   26
  33.  330  DATA    0,  116,   73,  139,   22,   26,    0,  131,  234,    2
  34.  340  DATA  131,  250,   30,  115,    6,  186,   62,    0,  131,  234
  35.  350  DATA    2,   59,   22,   28,    0,  117,   17,   46,  128,   62
  36.  360  DATA   23,    9,    1,  116,   41,   46,  198,    6,   23,    9
  37.  370  DATA    1,  235,    7,  144,   46,  198,    6,   23,    9,    0
  38.  380  DATA   46,  131,   62,   21,    9,    0,  117,   30,   46,  139
  39.  390  DATA   22,   43,    9,   59,   22,   26,    0,  117,   10,   46
  40.  400  DATA  199,    6,   43,    9,    0,    0,  233,   81,    1,  139
  41.  410  DATA   22,   26,    0,   46,  137,   22,   43,    9,  131,  235
  42.  420  DATA    2,  131,  251,   30,  115,    6,  187,   62,    0,  131
  43.  430  DATA  235,    2,  139,   23,   46,  128,   62,   36,    9,    0
  44.  440  DATA  116,   86,  129,  250,   -2,  117,  114,  137,   30
  45.  450  DATA   28,    0,   46,  247,   22,   21,    9,   46,  131,   62
  46.  460  DATA   21,    9,    0,  117,   66,   46,  199,    6,   43,    9
  47.  470  DATA    0,    0,   46,  138,   38,   16,    9,   46,  136,   38
  48.  480  DATA   14,    9,   46,  136,   38,   15,    9,   46,  199,    6
  49.  490  DATA   17,    9,  252,    3,  141,    6,  124,   11,   46,  163
  50.  500  DATA   28,    9,  232,  182,    1,   46,  131,   62,   24,    9
  51.  510  DATA    9,  116,   15,   46,  161,   24,    9,  177,  102,  246
  52.  520  DATA  225,   46,  163,   37,    9,  232,    1,    2,  233,  215
  53.  530  DATA    0,   46,  199,    6,   24,    9,    9,    0,   46,  199
  54.  540  DATA    6,   17,    9,  252,    3,  141,    6,   78,   11,   46
  55.  550  DATA  163,   28,    9,  232,  131,    1,  232,  196,    0,  233
  56.  560  DATA  184,    0,   46,  247,    6,   21,    9,    1,    0,  116
  57.  570  DATA   68,  137,   30,   28,    0,  129,  250,    0,   72,  117
  58.  580  DATA   26,   46,  255,   14,   24,    9,   46,  131,   62,   24
  59.  590  DATA    9,    0,  125,    7,   46,  199,    6,   24,    9,    9
  60.  600  DATA    0,  232,  151,    0,  233,  139,    0,  129,  250,    0
  61.  610  DATA   80,  117,  171,   46,  255,    6,   24,    9,   46,  131
  62.  620  DATA   62,   24,    9,    9,  126,    7,   46,  199,    6,   24
  63.  630  DATA    9,    0,    0,  232,  119,    0,  235,  108,  144,  129
  64.  640  DATA  250,    8,   14,  117,   32,   46,  139,   30,   12,    9
  65.  650  DATA  129,  251,  150,    3,  126,   18,   46,  131,   46,   12
  66.  660  DATA    9,    2,   46,  198,  135,   18,    1,   32,   46,  198
  67.  670  DATA  135,   19,    1,   57,  235,   70,  144,  128,  250,   13
  68.  680  DATA  116,   33,  128,  250,   32,  125,   28,   46,  199,    6
  69.  690  DATA   12,    9,  150,    3,  185,   51,    0,  187,  150,    3
  70.  700  DATA   46,  199,  135,   20,    1,    0,    0,  131,  195,    2
  71.  710  DATA  226,  244,  235,   32,  144,   46,  139,   30,   12,    9
  72.  720  DATA  129,  251,  250,    3,  125,   11,   46,  137,  151,   20
  73.  730  DATA    1,   46,  131,    6,   12,    9,    2,  129,  250,   13
  74.  740  DATA   28,  117,    3,  232,   42,    0,    7,   31,   94,   95
  75.  750  DATA   90,   89,   91,   88,  207,   80,   46,  198,    6,   14
  76.  760  DATA    9,  112,   46,  198,    6,   15,    9,  240,   46,  199
  77.  770  DATA    6,   17,    9,    0,    0,  141,    6,  124,   11,   46
  78.  780  DATA  163,   28,    9,  232,  157,    0,   88,  195,   83,   81
  79.  790  DATA   87,   86,   30,    6,   14,   31,   30,    7,  141,   62
  80.  800  DATA   20,    1,  139,  247,  131,  198,  102,  185,  203,    1
  81.  810  DATA  139,   30,   12,    9,  129,  251,  152,    3,  116,   16
  82.  820  DATA  199,  135,   20,    1,    0,    0,  243,  165,  185,   51
  83.  830  DATA    0,  184,   32,   57,  243,  171,  199,    6,   12,    9
  84.  840  DATA  150,    3,    7,   31,   94,   95,   89,   91,  195,   82
  85.  850  DATA  190,    2,    0,   46,  139,   22,   30,    9,  236,  168
  86.  860  DATA    1,  117,  251,  236,  168,    1,  116,  251,   38,  138
  87.  870  DATA   37,   71,   78,  131,  254,    0,  116,    7,   46,  136
  88.  880  DATA  167,   20,    1,  235,  229,   46,  136,   38,   16,    9
  89.  890  DATA  131,  195,    2,   90,  195,   82,   46,  138,  167,   20
  90.  900  DATA    1,  128,  252,   32,  115,    2,  180,   32,  190,    2
  91.  910  DATA    0,   46,  139,   22,   30,    9,  236,  168,    1,  117
  92.  920  DATA  251,  236,  168,    1,  116,  251,   38,  136,   37,   46
  93.  930  DATA  138,   38,   14,    9,   71,   78,  117,  234,  131,  195
  94.  940  DATA    2,   90,  195,  187,    0,  176,  142,  195,   30,  187
  95.  950  DATA   64,    0,  142,  219,  187,   74,    0,  139,   31,  131
  96.  960  DATA  235,   51,    3,  219,   46,  137,   30,   19,    9,   31
  97.  970  DATA   46,  139,   62,   26,    9,   46,    3,   62,   19,    9
  98.  980  DATA   46,  139,   30,   17,    9,  185,   10,    0,   46,  255
  99.  990  DATA   54,   14,    9,   81,  247,  217,  131,  193,   10,   46
  100. 1000  DATA   59,   14,   24,    9,  117,   10,   46,  138,   14,   15
  101. 1010  DATA    9,   46,  136,   14,   14,    9,   89,  186,   51,    0
  102. 1020  DATA   46,  255,   22,   28,    9,   74,  117,  248,   46,    3
  103. 1030  DATA   62,   19,    9,   46,  143,    6,   14,    9,  226,  204
  104. 1040  DATA  195,   30,   86,   87,   82,   81,   83,   80,  184,   64
  105. 1050  DATA    0,  142,  216,   46,  198,    6,   36,    9,    1,  139
  106. 1060  DATA   30,   28,    0,   46,  139,   54,   37,    9,   46,  139
  107. 1070  DATA  132,   20,    1,  131,  198,    2,   61,    0,    0,  116
  108. 1080  DATA   50,  139,  211,  131,  194,    2,  131,  250,   62,  124
  109. 1090  DATA    3,  186,   30,    0,   59,   22,   26,    0,  116,   25
  110. 1100  DATA   46,  131,    6,   37,    9,    2,  137,    7,  131,  195
  111. 1110  DATA    2,  131,  251,   62,  124,    3,  187,   30,    0,  137
  112. 1120  DATA   30,   28,    0,  235,  199,   46,  198,    6,   36,    9
  113. 1130  DATA    0,   88,   91,   89,   90,   95,   94,   31,  251,  195
  114. 1140  DATA  156,   30,   14,   31,  255,   30,   39,    9,  156,  128
  115. 1150  DATA   62,   36,    9,    1,  116,   97,  250,   30,   86,   82
  116. 1160  DATA   83,   80,  184,   64,    0,  142,  216,  139,   30,   28
  117. 1170  DATA    0,   46,  198,    6,   36,    9,    1,   46,  139,   54
  118. 1180  DATA   37,    9,   46,  139,  132,   20,    1,  131,  198,    2
  119. 1190  DATA   61,    0,    0,  117,    3,  235,   51,  144,  139,  211
  120. 1200  DATA  131,  194,    2,  131,  250,   62,  124,    3,  186,   30
  121. 1210  DATA    0,   59,   22,   26,    0,  116,   25,   46,  131,    6
  122. 1220  DATA   37,    9,    2,  137,    7,  131,  195,    2,  131,  251
  123. 1230  DATA   62,  124,    3,  187,   30,    0,  137,   30,   28,    0
  124. 1240  DATA  235,  196,   46,  198,    6,   36,    9,    0,   88,   91
  125. 1250  DATA   90,   94,   31,  157,   31,  207,  184,    0,    0,  142
  126. 1260  DATA  216,  161,   36,    0,   46,  163,   32,    9,  161,   38
  127. 1270  DATA    0,   46,  163,   34,    9,  199,    6,   36,    0,   45
  128. 1280  DATA    9,  140,   14,   38,    0,  161,  112,    0,   46,  163
  129. 1290  DATA   39,    9,  161,  114,    0,   46,  163,   41,    9,  199
  130. 1300  DATA    6,  112,    0,  113,   12,  140,   14,  114,    0,  184
  131. 1310  DATA   64,    0,  142,  216,  187,   30,    0,  137,   30,   26
  132. 1320  DATA    0,  137,   30,   28,    0,  180,   15,  205,   16,   46
  133. 1330  DATA  199,    6,   30,    9,  186,    3,  168,    4,  117,   14
  134. 1340  DATA   46,  199,    6,   26,    9,    0,  128,   46,  199,    6
  135. 1350  DATA   30,    9,  218,    3,  186,  229,   12,  205,   39
  136.